home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
chanfont
/
readme.txt
< prev
Wrap
Text File
|
1999-06-22
|
3KB
|
47 lines
The change font control makes it easy for your users to change to the font style, size,
or color on your form. Once the user has made his selection the control will then resize
the form and then resize and reposition all of the form's controls so that the original layout
of the form is maintained. If your application runs with the form maximized or if the user
maximizes the form the control will check to see if it can resize and reposition the controls
within the limits of the screen if resizing is possible then the controls are resized.
The control has one method ChangeFont which will bring up the common dialog box for changing
fonts. Useage: ChangeFont1.ChangeFont
The control has one property show color which when set to true will enable the user to
change the color of the font.
The control has one event FontChanged which fires after the font has been resized. You can use
this event to reset any of the controls font attributes that you want to retain control over.
For example your program specifications may require all labels display their text with the
bold attribute set to true.
Note that while the control is designed to resize controls without destroying the original form
layout if the form is maximized and the user changes the font it is possible for the original
layout to be destroyed. You should always include code that will allow the user to restore the
original form. I start my applications from sub main() in a standard module. I then include
the following sub in the same standard module:
Public sub Restore(frm as form)
Unload frm
Frm.show
End sub
The Disclaimer:
THIS SOFTWARE IS PROVIDED BY Michael Du Bois (THE AUTHOR) ``AS IS'' AND ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
This control is shareware. If you choose to keep and use this control in your applications the
cost is $20.00 (US). Please remit check or money order to Michael Du Bois,
6342 Salado Rd.
St Augustine Fl 32084.
Comments, bug reports, or technical questions should be emailed to mikedb@aug.com.